www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/YWNT_TMS_Inc/YWNT_TMS_Page.asp
<% '=================================================================================================================== '软件名称:云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ:489234,2813712 '程序版权:云网互动科技有限公司 '程序开发:云网互动科技有限公司 '官方网站:http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息; ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== Function PageUrl(moveParam,removeList) dim strName dim KeepUrl,KeepForm,KeepMove removeList=removeList&","&moveParam KeepForm="" For Each strName in Request.Form if not InstrRev(","&removeList&",",","&strName&",", -1, 1)>0 and Request.Form(strName)<>"" then KeepForm=KeepForm&"&"&strName&"="&Server.URLencode(Request.Form(strName)) end if removeList=removeList&","&strName Next KeepUrl="" For Each strName In Request.QueryString If not (InstrRev(","&removeList&",",","&strName&",", -1, 1)>0) Then KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName)) End If Next KeepMove=KeepForm&KeepUrl If (KeepMove <> "") Then KeepMove = Right(KeepMove, Len(KeepMove) - 1) KeepMove = Server.HTMLEncode(KeepMove) & "&" End If 'PageUrl = replace(Request.ServerVariables("URL"),"/Search.asp","/Search.html") & "?" & KeepMove & moveParam & "=" PageUrl = "?" & KeepMove & moveParam & "=" End Function Function fPageCount(Page_Rs,Page) Dim This_Func_Get_Html_,toPage_,p_,sp2_,I,tpagecount Dim NaviLength,StartPage,EndPage showNumberLink_=10 showMorePageGo_Type_ = 0 nonLinkColor_="#999999" toF_="<font face=webdings title=""首页"">9</font>" toP10_=" <font face=webdings title=""上十页"">7</font>" toP1_=" <font face=webdings title=""上一页"">3</font>" toN1_=" <font face=webdings title=""下一页"">4</font>" toN10_=" <font face=webdings title=""下十页"">8</font>" toL_="<font face=webdings title=""最后一页"">:</font>" This_Func_Get_Html_ = "" : I = 1 NaviLength=showNumberLink_ if IsEmpty(showMorePageGo_Type_) then showMorePageGo_Type_ = 1 tpagecount=Page_Rs.pagecount If tPageCount<1 Then tPageCount=1 if not Page_Rs.eof or not Page_Rs.bof then toPage_ = PageUrl("Page","submit,GetType,no-cache,_") if Page=1 then This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""首页"">"&toF_&"</font> " &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&"1 title=""首页"">"&toF_&"</a> " &vbNewLine End If if Page<NaviLength then StartPage = 1 else StartPage = fix(Page / NaviLength) * NaviLength end if EndPage=StartPage+NaviLength-1 If EndPage>tPageCount Then EndPage=tPageCount If StartPage>1 Then This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_& Page - NaviLength &" title=""上"&int_showNumberLink_&"页"">"&toP10_&"</a> " &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""上"&int_showNumberLink_&"页"">"&toP10_&"</font> " &vbNewLine End If If Page <> 1 and Page <>0 Then This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&(Page-1)&" title=""上一页"">"&toP1_&"</a> " &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""上一页"">"&toP1_&"</font> " &vbNewLine End If For I=StartPage To EndPage If I=Page Then This_Func_Get_Html_=This_Func_Get_Html_& "<b>"&I&"</b>" &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&I&">" &I& "</a>" &vbNewLine End If If I<>tPageCount Then This_Func_Get_Html_=This_Func_Get_Html_& vbNewLine Next If Page <> Page_Rs.PageCount and Page <>0 Then This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_&(Page+1)&" title=""下一页"">"&toN1_&"</a> " &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""下一页"">"&toN1_&"</font> " &vbNewLine End If If EndPage<tpagecount Then This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_& Page + NaviLength &" title=""下"&int_showNumberLink_&"页"">"&toN10_&"</a> " &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& " <font color="&nonLinkColor_&" title=""下"&int_showNumberLink_&"页"">"&toN10_&"</font> " &vbNewLine End If if Page_Rs.PageCount<>Page then This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&Page_Rs.PageCount&" title=""尾页"">"&toL_&"</a>" &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""尾页"">"&toL_&"</font>" &vbNewLine End If If showMorePageGo_Type_ = 1 then Dim Show_Page_i Show_Page_i = Page + 1 if Show_Page_i > tPageCount then Show_Page_i = 1 This_Func_Get_Html_=This_Func_Get_Html_& "<input type=""text"" size=""4"" maxlength=""10"" name=""Func_Input_Page"" onmouseover=""this.focus();"" onfocus=""this.value='"&Show_Page_i&"';"" onKeyUp=""value=value.replace(/[^1-9]/g,'')"" onbeforepaste=""clipboardData.setData('text',clipboardData.getData('text').replace(/[^1-9]/g,''))"">" &vbNewLine _ &"<input type=""button"" value=""Go"" onmouseover=""Func_Input_Page.focus();"" onclick=""javascript:var Js_JumpValue;Js_JumpValue=document.all.Func_Input_Page.value;if(Js_JumpValue=='' || !isNaN(Js_JumpValue)) location='"&topage_&"'+Js_JumpValue; else location='"&topage_&"1';"">" &vbNewLine Else This_Func_Get_Html_=This_Func_Get_Html_& " 跳转:<select NAME=menu1 onChange=""var Js_JumpValue;Js_JumpValue=this.options[this.selectedIndex].value;if(Js_JumpValue!='') location=Js_JumpValue;"">" for i=1 to tPageCount This_Func_Get_Html_=This_Func_Get_Html_& "<option value="&topage_&i if Page=i then This_Func_Get_Html_=This_Func_Get_Html_& " selected style='color:#FF0000'" This_Func_Get_Html_=This_Func_Get_Html_& ">第"&cstr(i)&"页</option>" &vbNewLine next This_Func_Get_Html_=This_Func_Get_Html_& "</select>" &vbNewLine End if This_Func_Get_Html_=This_Func_Get_Html_& p_&sp2_&" 每页<b>"&Page_Rs.PageSize&"</b>个记录,现在是:<b><span class=""tx"">"&sp2_&Page&"</span>/"&tPageCount&"</b>页,共<b><span id='recordcount'>"&sp2_&Page_Rs.recordCount&"</span></b>个记录。" else end if fPageCount = This_Func_Get_Html_ End Function %>